home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / TSYSMENU.bas < prev    next >
BASIC Source File  |  1997-06-14  |  661b  |  23 lines
  1. Attribute VB_Name = "MTestSysMenu"
  2. Option Explicit
  3.  
  4. Public procOld As Long
  5. Public Const IDM_ABOUT As Long = 1010
  6.  
  7. Public Function SysMenuProc(ByVal hWnd As Long, ByVal iMsg As Long, _
  8.                             ByVal wParam As Long, lParam As Long) As Long
  9.     ' Ignore everything but system commands
  10.     If iMsg = WM_SYSCOMMAND Then
  11.         ' Check for one special menu item
  12.         If wParam = IDM_ABOUT Then
  13.             MsgBox "Callback Test"
  14.             Exit Function
  15.         End If
  16.     End If
  17.     ' Let old window procedure handle other messages
  18.     SysMenuProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)
  19. End Function
  20. '
  21.  
  22.  
  23.